home *** CD-ROM | disk | FTP | other *** search
/ 130 MIDI Tool Box / 130 MIDI Tool Box.iso / mplib / mplib.inc < prev    next >
Text File  |  1988-11-10  |  2KB  |  73 lines
  1. '
  2. '    MPLIB.INC
  3. '  
  4. '    Standard Header for all my programs.
  5. '
  6. ' ---------------------------------------------------------
  7.  
  8. DECLARE SUB DisplayHead (Head$)
  9. DECLARE SUB DisplayMenu ()
  10. DECLARE SUB MarkChoice (Choice%)
  11. DECLARE SUB UnmarkChoice (Choice%)
  12.  
  13. DECLARE SUB DisplayMessage (Msg$)
  14. DECLARE SUB ErrorMessage (Msg$)
  15. DECLARE SUB EraseMessage ()
  16.  
  17. DECLARE SUB TextInput (Prompt$, MaxLenght%, Reply$, Esc%)
  18. DECLARE SUB NumberInput (Prompt$, Min%, Max%, Init%, Esc%)
  19.  
  20. DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  21. DECLARE SUB InitMouse (MouseExist%)
  22. DECLARE SUB HideMouse ()
  23. DECLARE SUB ShowMouse ()
  24.  
  25. DECLARE SUB OpenWindow (Row%, Col%, Hauteur%, Largeur%)
  26. DECLARE SUB CloseWindow ()
  27. DECLARE SUB OWindow (AddressOfParameters%, AddressOfBuffer%)
  28. DECLARE SUB CWindow (AddressOfParameters%, AddressOfBuffer%)
  29. DECLARE SUB Scroll (Starty%, Startx%, Endy%, Endx%, Count%, Dir%)
  30. DECLARE SUB Display (Row%, Col%, Lenght%, StringAddress%, Attrib%)
  31.  
  32. DECLARE SUB FindFirst (AddFilename%, AddBuffer%, ErrorCode%)
  33. DECLARE SUB FindNext (AddBuffer%, ErrorCode%)
  34. DECLARE SUB Exist (AddFilename%, ErrorCode%)
  35.  
  36. DECLARE SUB SendCmd (Command%, Acknowledge%)
  37. DECLARE SUB ReadData (NumberOfBytes%, BufferAddress%)
  38. DECLARE SUB SendData (NumberOfBytes%, StringAddress%)
  39. DECLARE SUB EnableIRQ2 ()
  40. DECLARE SUB DisableIRQ2 ()
  41. DECLARE SUB DumpBuffer (BufferPointer%, AddressOfBuffer%)
  42.  
  43. ' -------------------------------------------------------------------
  44.  
  45. DEFINT A-Z
  46.  
  47. CONST False = 0, True = -1
  48. CONST Up = 6, Down = 7
  49.  
  50. TYPE DirBuffer
  51.      DOS      AS STRING * 21
  52.      Attr     AS STRING * 1
  53.      Ftime    AS INTEGER
  54.      Fdate    AS INTEGER
  55.      FsizeLSB AS INTEGER
  56.      FsizeMSB AS INTEGER
  57.      Fname    AS STRING * 12
  58. END TYPE
  59.  
  60. DIM DirEntry AS DirBuffer
  61.  
  62. DIM Buffer AS STRING * 8000
  63. DIM BufferPtr AS INTEGER
  64. DIM Menu(10) AS STRING
  65. DIM BoxPtr(32) AS STRING * 6
  66. DIM BoxBuffer(32) AS STRING
  67.  
  68. COMMON SHARED MouseExist AS INTEGER
  69. COMMON SHARED BoxNumber AS INTEGER
  70. COMMON SHARED Menu() AS STRING
  71. COMMON SHARED BoxPtr() AS STRING * 6
  72. COMMON SHARED BoxBuffer() AS STRING
  73.